home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / c / blf082b / nlist.pl < prev    next >
Perl Script  |  1993-12-15  |  2KB  |  75 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # NetList compiler, Perl clone of "nlist.c". Written by Thierry Bousch
  4. # for the BloufGate project and placed in the public domain.
  5. # 
  6. # Usage: nlist [-c] [--city] <nodelist> [netlist]
  7. #
  8. # The flag -c (short form) or --city (long form) appends the name of the
  9. # city to the name of the net.
  10. #
  11. # If no netlist name is provided, data will be written on standard output.
  12. #
  13.  
  14. $Usage = "Usage: nlist [-c] [--city] <nodelist> [netlist]\n";
  15. $use_cities = 0;
  16.  
  17. # Parse command line
  18.  
  19. if ($ARGV[0] eq "-c" || $ARGV[0] eq "--city") {
  20.     shift;
  21.     $use_cities = 1;
  22. }
  23.  
  24. die $Usage unless @ARGV;
  25. $nodelist = shift;
  26. $netlist  = @ARGV ? shift : "-";    # stdout if no netlist name
  27.  
  28. # Now try to open the files
  29.  
  30. open(NODELIST,  $nodelist) || die "Can't open file \"$nodelist\" !\n";
  31. open(NETLIST, ">$netlist") || die "Can't open file \"$netlist\" !\n";
  32.  
  33. print NETLIST "#\n# Nodelist \"$nodelist\" compiled with nlist.pl\n#\n";
  34.  
  35. # Scan nodelist
  36.  
  37. $net = $zone = 0;
  38.  
  39. while (<NODELIST>) {
  40.     # Remove end-of-line terminators, and ^Z if any
  41.     s/[\n\r\032]//g;
  42.     next if /^;/;        # skip comments
  43.     next if /^$/;        # and empty lines
  44.     next if /^,/;        # and those beginning with a comma
  45.  
  46.     # Break the line into its fields
  47.     ($key,$number,$name,$city) = split(/,/);
  48.  
  49.     if ($key eq "Zone") {
  50.         # New zone
  51.         $net = $zone = $number;
  52.     }
  53.     elsif ($key eq "Region" || $key eq "Net" || $key eq "Host") {
  54.         # New net
  55.         $net = $number;
  56.     }
  57.     else {
  58.         # Not a new zone or net
  59.         next;
  60.     }
  61.     
  62.     if ($net == 0 || $zone == 0) {
  63.         # This should not happen
  64.         warn "Undefined net or zone -- corrupted nodelist?\n";
  65.         next;
  66.     }
  67.  
  68.     # Write the net, replacing underscores by spaces
  69.  
  70.     $_ = "$zone:$net $name";
  71.     $_ .= " ($city)" if $use_cities;
  72.     s/_+/ /g;
  73.     print NETLIST "$_\n";
  74. }
  75.